-- card: 3055 from stack: in.5 (US)
-- bmap block id: 3273
-- flags: 0000
-- background id: 2661
-- name: 


-- part 1 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=69 top=68 right=252 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 3 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=69 top=278 right=296 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Message


-- part 4 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=448 top=262 right=280 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Position


-- part 5 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=184 top=304 right=334 bottom=353
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prompt
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  if cd fld "Position" is empty
  then Prompt 1,cd fld "Message"
else if cd fld "Width" is empty
then Prompt 1,cd fld "Message",cd fld "Position"
else Prompt 1,cd fld "Message",cd fld "Position",cd fld "Width"
wait 1 second
repeat with i=1 to 10
  Prompt 2,"Test" && i
  wait 10 ticks
end repeat
Prompt 1,"This is another message"
wait 1 second
Prompt 3
end mouseUp



-- part 8 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=448 top=278 right=296 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Width


-- part contents for card part 1
----- text -----

                                                  Prompt 2.5
                                                  ----------

                                           © Frédéric RINALDI

DESCRIPTION

  Prompt is a XCMD displaying an information dialog during the execution of a script. The dialog's width is set accordingly to the string width.

   WARNING : Prompt doen't work properly with HC 2.0. Rather use 
                    Promptoid XCMD.



SYNTAX

Prompt 1 [, <message> [, <vertical position> [, <width> ] ] ]
  Brings the dialog to screen, displaying the message. If message is omitted or empty, the dialog's width will be set by default to 300 points. If no vertical position is passed, the dialog will be centered vertically on the card. Dialog is resized when Prompt 1 is called twice.

Prompt 2 , <message>
  Sets a new message in the current dialog.

Prompt 3
  Disposes the current dialog and clears it from the screen.


USING

   If no error occured, the Result will be empty. Otherwise, it can contain :
    "Error : Bad Mode Parameter"
    "Error : Bad coordinate"
    "Error : Bad Width"
    "Error : Missing Parameter(s)"
    "Error : Prompt doen't work properly with HC 2.0"


HISTORY
-------
2.5
• Completely rewritten code
• Better SuperCard compatibility
• Added HC 2.0 warning

2.4
• Added automatice resizing when Prompt 1 is called twice.
--------------------------------------------------------------------

This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.
Any commercial use must be licensed and aknowledged by the author.

                                  © F. Rinaldi - 1989,1990

AppleLink: RINALDI1        CalvaCom : FR10        Compuserve : 71170,2111

-- part contents for card part 3
----- text -----
This a message test